sapply(list("sf", "tidyverse", "here", "leaflet", "d6geodata", "terra"),
library, character.only = TRUE, logical.return = TRUE)
[1] TRUE TRUE TRUE TRUE TRUE TRUE
#leaflet::leaflet() |>
readRDS("test_map.rds")|>
leaflet::addProviderTiles(leaflet::providers$CartoDB.Positron)